home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Rinaldi / HC 1.2 only / CreateStack 1.1.cpt / CreateStack 1.1 (US) / card_3055.txt < prev    next >
Text File  |  1990-03-02  |  3KB  |  106 lines
  1. -- card: 3055 from stack: in.1 (US)
  2. -- bmap block id: 3273
  3. -- flags: 0000
  4. -- background id: 2661
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 0007
  11. -- rect: left=69 top=68 right=252 bottom=434
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: 
  20.  
  21.  
  22. -- part 5 (button)
  23. -- low flags: 00
  24. -- high flags: A003
  25. -- rect: left=178 top=279 right=309 bottom=347
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: CreateStack
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   ask "Stack name :"
  37.   if it ‚↠empty
  38.   then
  39.   put it into SName
  40.   createStack SName
  41.   get the Result
  42.   if first word of it = "Error"
  43.   then answer it
  44. else
  45.   if it is empty
  46.   then go stack SName
  47. else go stack it
  48. end if
  49. end if
  50. end mouseUp
  51.  
  52.  
  53.  
  54. -- part contents for card part 1
  55. ----- text -----
  56.  
  57.                                            CreateStack 1.1
  58.  
  59.                                         by Fr√©d√©ric RINALDI
  60.  
  61. DESCRIPTION
  62.  
  63.   CreateStack is a XCMD that allows to create a new Stack from within a script, without user intervention.
  64.  
  65.  
  66. SYNTAX
  67.  
  68.   CreateStack <name or pathName>
  69.  
  70.  
  71. PARAMETERS
  72.  
  73.   If you supply only a name, the stack will be created at HyperCard's hierarchical level on the disk.
  74.  
  75.   Help online is available : if you pass as first parameter :
  76.   "!" : the Result returns the version info
  77.   "?": the Result returns the syntax
  78.  
  79.  
  80. USING
  81.  
  82.    If no error occured, the Result will be empty. Otherwise, it can contain :
  83.  
  84. "Error : Bad Parameter Number"
  85. "Error : Resource STDT not found"
  86. "Error : Bad File Name"
  87. "Error : Path Not Found"
  88. "Error : Volume Not Found"
  89. "Error : Creation aborted"
  90. "Error : Create Failed"
  91. "Error : FSDelete failed"
  92. "Error : FSOpen failed"
  93. "Error : FSWrite failed"
  94. "Error : FSClose failed"
  95.  
  96.   If a file with the same name already exists, the XCMD will ask if you want to replace it, or rename the stack to be created. If you choose to rename it, the the Result will return the created stack name.
  97.   This XCMD needs an auxillary resource STDT named "CreateStack". You can renumber it, but avoid renaming it !
  98.  
  99. --------------------------------------------------------------------
  100.  
  101. This (these) external(s) is (are) FreeWare,allowing unlimited use in any non-commercial stack. You just need in this case to mention the author's name and copyright in your stack.
  102. Any commercial use must be licensed and aknowledged by the author.
  103.  
  104.                                   ¬© F. Rinaldi - 1989,1990
  105.  
  106. AppleLink: RINALDI1        CalvaCom : FR10        Compuserve : 71170,2111